object VisorFrm: TVisorFrm
  Left = 196
  Top = 161
  BorderStyle = bsNone
  Caption = 'Dokan - Visor'
  ClientHeight = 472
  ClientWidth = 681
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Hot: THotImg
    Left = 0
    Top = 0
    Width = 640
    Height = 36
    OnHit = HotHit
    Regions.Strings = (
      '#$MTIMFH'
      '#$-:Image Map file created by Map THIS!'
      '#$-:Map THIS! free image map editor by Todd C. Wilson'
      '#$-:Please do not edit lines starting with "#$"'
      '#$VERSION:1.30'
      '#$DATE:Thu May 07 11:16:29 1998'
      '#$PATH:C:\DOKAN\'
      '#$GIF:visor.gif'
      '#$FORMAT:ncsa'
      '#$EOH'
      'poly PREV 16,18 38,4 38,32 16,18'
      'poly NEXT 77,5 102,19 77,31 77,5'
      'rect STOP 45,6 72,31')
    ShowRegions = False
    OnClick = HotClick
    OnMouseMove = HotMouseMove
    ImgName = 'c:\dokan\bmp\visorl.bmp'
    ImgHName = 'c:\dokan\bmp\visorh.bmp'
  end
  object LblInfo1: TLabel
    Left = 116
    Top = 12
    Width = 58
    Height = 15
    AutoSize = False
    Caption = '0/0'
    Color = clTeal
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
    OnClick = LblInfo1Click
  end
  object LblInfo2: TLabel
    Left = 188
    Top = 12
    Width = 425
    Height = 15
    AutoSize = False
    Caption = 'Archivo'
    Color = clTeal
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Box: TPaintBox
    Left = 36
    Top = 80
    Width = 593
    Height = 333
    PopupMenu = PopupMenu
    OnMouseDown = BoxMouseDown
    OnMouseMove = BoxMouseMove
    OnMouseUp = BoxMouseUp
    OnPaint = BoxPaint
  end
  object Edit1: TEdit
    Left = 128
    Top = 36
    Width = 37
    Height = 19
    Ctl3D = False
    MaxLength = 3
    ParentCtl3D = False
    TabOrder = 0
    Text = '0'
    OnKeyPress = Edit1KeyPress
  end
  object Player: TMediaPlayer
    Left = 356
    Top = 428
    Width = 253
    Height = 30
    AutoRewind = False
    Visible = False
    TabOrder = 1
    OnNotify = PlayerNotify
  end
  object GifTimer: TTimer
    Enabled = False
    Interval = 200
    OnTimer = GifTimerTimer
    Left = 644
    Top = 8
  end
  object PopupMenu: TPopupMenu
    OnPopup = PopupMenuPopup
    Left = 12
    Top = 104
    object miAjustar: TMenuItem
      Caption = 'Ajustar a pantalla'
      OnClick = miAjustarClick
    end
    object miAuto: TMenuItem
      Caption = 'Modo Autom�tico'
      OnClick = miAutoClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object miMusica: TMenuItem
      Caption = 'M�sica'
      OnClick = miMusicaClick
    end
    object miTema: TMenuItem
      Caption = 'Nuevo tema'
      OnClick = miTemaClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object miGuardar: TMenuItem
      Caption = 'Guardar imagen ...'
      OnClick = miGuardarClick
    end
  end
  object SaveDialog: TSaveDialog
    Left = 16
    Top = 436
  end
  object Timer: TTimer
    Enabled = False
    Interval = 5000
    OnTimer = TimerTimer
    Left = 644
    Top = 56
  end
end